home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_387 / megafish / tools / mf-rexxscripts / installmfs.mfish < prev    next >
Text File  |  1995-07-15  |  1KB  |  48 lines
  1. /*
  2. $VER: MFS.rexx Installer V1.00 (W) Stephan Bülling (C) Mega/Soft Ltd.
  3. */
  4.  
  5. ver="MFS Installer V1.00 ";if show('library','rexxreqtools.library') = 0 then do
  6.  
  7. call addlib("rexxreqtools.library", 0, -30, 0);end;
  8. OPTIONS RESULTS
  9.  
  10. cr=d2c(13)||d2c(10);'WaitForPort MFISH';ADDRESS 'MFISH'
  11.   if ~Show(P,'MFISH') then do
  12.     Say cr||cr||""ver" (W) 1994 Stephan Bülling"||cr
  13.     Say "MegaFish muß zuerst gestartet werden!"||cr
  14.     options PROMPT "Ende mit <RETURN>"
  15.     pull it
  16.     exit
  17.   end
  18.  
  19. LOCKGUI;
  20.  
  21. dirname = rtfilerequest(, ,"MegaFish Pfad angeben", ,,
  22.  "rtfi_flags = freqf_nofiles");
  23.  
  24. if rtresult == 0 then;
  25.  CALL BREAK_C;
  26. ELSE
  27.  
  28.   STATUS PROJECTNAME;project=RESULT;
  29.   STATUS ALLDIRS;aserien=RESULT
  30.  
  31. open(Config,"ENVARC:MegaFish.def",W);
  32.   Writeln(Config,""dirname"MegaFish");
  33.   Writeln(Config,"K");
  34.   Writeln(Config,""aserien"");
  35.  DO i=1 TO aserien;
  36.   PROJECTNAME i;dataname=RESULT;
  37.   Writeln(Config,""dataname"")
  38. END
  39. close(Config);
  40.  
  41. ADDRESS COMMAND "COPY ENVARC:MegaFish.def ENV:";
  42.  
  43. QUIT;
  44.  
  45. BREAK_C:
  46. Exit
  47.  
  48.